An Awesome Graph in R

Code

install.packages("leaflet")
install.packages('sp')
install.packages('sf')
install.packages('tmap')
install.packages('leaflegend')

Code

library(leaflet)
library(sp)
library(sf)
library(tmap)
library(purrr)

Code

ez=st_make_valid(read_sf('ez'))
m=tm_shape(ez)
p=partial(tm_polygons,col="zonecode",popup.v=c("zonecode","zonename","SHAPE_Area"),al=0.7,style="cat",pal='Accent',border.a=0.1)
tmap_leaflet(m+p(legend.show=F))

Code

m+p(legend.is.p=F)+tm_layout(legend.on=T,legend.pos=c('center','top'))